home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 18
/
CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso
/
CUCD
/
Programming
/
AmigaE
/
Src
/
Tools
/
Hook
/
hooktest.e
next >
Wrap
Text File
|
1992-09-02
|
358b
|
17 lines
-> test hooks
MODULE 'utility', 'utility/hooks', 'tools/installhook'
PROC main()
DEF myhook:hook
IF utilitybase:=OpenLibrary('utility.library',37)
installhook(myhook,{myfunction})
CallHookPkt(myhook,1,2)
CloseLibrary(utilitybase)
ENDIF
ENDPROC
PROC myfunction(hook,obj,msg)
WriteF('hook: $\h, obj: \d, msg: \d\n',hook,obj,msg)
ENDPROC